home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v10n06.arc
/
FLOPEX.WWD
< prev
next >
Wrap
Text File
|
1991-03-06
|
590b
|
19 lines
Sub MAIN
REM: Create a dialog record, called DRecord
REM: With fields to match those in the FileOpen Dialog Box
Dim DRecord As FileOpen
REM: Now get the default values for those fields
GetCurValues DRecord
REM: Set DRecord to look for all files
DRecord.Name = "*.*"
REM: Highlight the first file in the list box
SendKeys "{tab}{down}"
REM: If there is an error, jump to the last line
On Error Goto Skip
REM: And display the Dialog record
Dialog DRecord
REM: Open the chosen file.
Super FileOpen DRecord
REM: The place to jump to in case of an error
Skip: End Sub